home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 6 / FM Towns Free Software Collection 6.iso / data / fapx / fapxtml1.plp < prev    next >
Text File  |  1993-07-08  |  2KB  |  72 lines
  1. /*    Down all text of one mail(圧縮ﾓｰﾄﾞ)    */
  2. %AllText{
  3.     loop({
  4.         wait(Wtime2*5,{break;im({Yes})},
  5.             {    題名：},
  6.             {wait(Wtime2,{AbortOff({\nホストの反応が鈍いよぉ～\n})},
  7.                 {\n},
  8.                 {%a    @laststr(128);
  9.                 TITLE:=@getchar(@getline(a,@noline(a)-2),4,17)|
  10.                     @tail(a,{題名：},{\n})});
  11.             im({Yes})},
  12.             {はバイナリーのため、表示出来ません◆\n},
  13.             {BMcnt:=BMcnt+1;im({Yes})},
  14.             {:転送＋削除  E:終了)\n：},
  15.             {wait(2);
  16.             case(@nochar(@tail(@laststr,{E:終了)\n：}))>0,
  17.                 {Yes},{im({Yes})},
  18.                 {No},
  19.                 {stoprec;
  20.                 %file    @nowfile2(TEMP2|{_mopterm.eml},TEMP);
  21.                 write(LOG2|{TITLE\NIFMAIL.TXT},
  22.                     file|{ }|TITLE|{ \n});
  23.                 delfile(TEMP2|{_mopterm.eml});
  24.                 receive(TEMP2|{_mopterm.eml});
  25.                 type({2\n});
  26.                 im({Yes})});
  27.             },
  28.             {続き (改行で表示　E:終了)\n＞},
  29.             {wait(2);
  30.             case(@nochar(@tail(@laststr,{E:終了)\n：}))>0,
  31.                 {Yes},{im({Yes})},
  32.                 {No},{type({\n});im({Yes})})},
  33.             {NAPLPSのデコーダーが必要です。準備 (1:OK  2:NG) \n：},
  34.             {wait(2);
  35.             case(@nochar(@tail(@laststr,{2:NG) \n：}))>0,
  36.                 {Yes},{im({Yes})},
  37.                 {No},
  38.                 {type({1\n});wait(5);type({\n});
  39.                 wait(,,    {:転送＋削除  E:終了)\n：},
  40.                     {
  41.                     stoprec;setcdir(CDIR);dispoff(!DEBUG);
  42.                     command({txf -npcut }|
  43.                         { -i }|TEMP2|{_mopterm.eml}|
  44.                         { -o }|TEMP2|{_mopterm.npb});
  45.                     %file    @nowfile2(TEMP2|{_mopterm.npb},
  46.                                 TEMP);
  47.                     dispoff({No});
  48.                     delfile(TEMP2|{_mopterm.eml});
  49.                     delfile(TEMP2|{_mopterm.npb});
  50.                     write(LOG2|{TITLE\NAPMAIL.TXT},
  51.                         file|{ }|TITLE|{ \n});
  52.                     receive(TEMP2|{_mopterm.eml});
  53.                     type({2\n});im({Yes})});
  54.                 });
  55.             },
  56.             {◆次頁はありません◆\n＞},
  57.             {wait(2);
  58.             case(@nochar(@tail(@laststr,{◆\n＞}))>0,
  59.                 {Yes},{im({Yes})},{No},{im({No})})},
  60.             {（1:受信　2:送信　3:送信簿　0:その他　E:終了）\n＞},
  61.             {wait(2);
  62.             case(@nochar(@tail(@laststr,{E:終了）\n＞}))>0,
  63.                 {Yes},{im({Yes})},{No},{im({No})})});
  64.         });
  65.     stoprec;delfile(TEMP2|{_mopterm.eml});
  66.     };
  67.  
  68. mkdir2(LOG2|{TITLE});delfile(TEMP2|{_MOPTERM.EML});
  69. type({READ NEW\n});receive(TEMP2|{_MOPTERM.EML});AllText;dispoff(!DEBUG);
  70. command(ARCHIVER|{ a }|LOG2|{NIFMAIL.lzh }|TEMP2|{*.eml});
  71. command(ARCHIVER|{ a }|LOG2|{NAPMAIL.lzh }|TEMP2|{*.npb});
  72. command({del }|TEMP2|{*.eml});command({del }|TEMP2|{*.npb});dispoff({No});